Public Class CollectionFilter

Code Sample

• %REM
  The following code shows how to create a filter for even numbers and use it. The code is very basic with no error handling.
  %END REM
  Class EvenFilterer as CollectionFilter
      Function filter(source as Variant) as Boolean
          If (source Mod 2 = 0) Then Return True
      End Function
  End Class
  
  Dim coll1 as New Collection("INTEGER", Nothing, False, False)
  Dim coll2 as Collection
  Dim filterer as New EvenFilterer
  
  ' Populating collection omitted
  
  Set coll2 = coll1.filter(filterer)

Methods Detail

• filter

  Public Function filter(source As Variant) As Boolean
  Function to filter an element "in" or "out" of the resulting collection
  idx	Argument	Data Type	Attributes	Comments
  1	source	Variant		True to filter the value *in*, False to filter *out*
  Code Sample
  %REM The following code shows how to create a filter for even numbers and use it. The code is very basic with no error handling. %END REM Class EvenFilterer as CollectionFilter Function filter(source as Variant) as Boolean If (source Mod 2 = 0) Then Return True End Function End Class Dim coll1 as New Collection("INTEGER", Nothing, False, False) Dim coll2 as Collection Dim filterer as New EvenFilterer() ' Populating collection omitted Set coll2 = coll1.filter(filterer)

• New

  Public Sub New()